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"Poctatent RMS 
Abstract: 


This module communicates with the file acces 
node to extend the size of the specified fil 


s listener at the remote 
e. 

Environment: VAX/VMS, executive mode 

Author: James A. Krycka, Creation Date: 17-AUG-1981 

Modified By: 


v03-004 RASO315 Ron Schaefer 22-Jun-1984 
Make local definitions of the RMS symbols. 


v03-003 ag Malik 06-Jan-1983 
Use FAB's ALQ instead of XAB's when no XAB 
is present. (& fix bug in processing XAB 
ALQ returned from F 


v03-002 ponopes R Malik 20-Apr-1982 
ix bug in way SEND ALL does XAB probe. 


v03-001 panpess K R Malik 05-Apr-1982 
Probe each Allocation. XAB before sending to FAL. 


v02-002 JAK0066 J A Krycka 07-OCT-1981 
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NTOEXTEND NETWORK EXTEND 16-SEP-1984 00:00:31 VAX/VMS Macro v04-00 Pa | 
v06 DECLARATIONS iets 93:98:27 CAMS SRCINTOEXTEND. MAR: 1 ™ 3) 
6¢ -SBTTL DECLARATIONS 
4; 
$3 ; Include Files: 
69 
$0 68 SDAPPLGDEF : Define DAP prologue symbols 
00 $? SDAPHDRDEF ; Define DAP message header 
00 0 SDAPCNF DEF ; Define DAP Configuration message 
0000 71 APACCDEF ; Define DAP Access message 
0000 i DAPCTLDEF ; Define DAP Control message 
44 7 SDAPALLDEF i; Define DAP Allocation message 
74 F ABDEF : Define FAB symbols 
0000 75 IFBDEF ; Define IFAB symbols 
44 i SNWADEF ; Define Network Work Area symbols 
000 7 SRMSDEF : Define RMS error message symbols 
0000 78 $XABDEF ; Define XAB symbols 
0000 79 
0000 + 3 
0000 1 ; Macros: 
0000 Hf ; 
0000 4 3 Nene 
0000 4; 
0000 85 ; Equated Symbols: 
0000 86 ; 
0000 87 
0000 88 ASSUME DAP$Q_DCODE_FLG EQ 0 
0000 89 
0000 90 ; 
0000 91 ; Own Storage: 
0000 38 3 
0000 s None 
0000 94 ; 
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16-SEP-1984 00:00:31 VAX/VMS Ma 
NTSEXTEND = green ioee Sor sbsey : 


v04-00 p 
RMS. SRC INTOEXTE i 


ND .MAR;1 
98 -SBTTL NTSEXTEND - 
38 ae 
99 ; NTSEXTEND - engeert in a DAP dialogue with the remote FAL to extend the 
00 specified file according to the Allocation XABs present (or according 
to the FAB if no Allocati 
Calling Sequence: 
BSBW NTSEXTEND 
Input Parameters: 
R8 FAB address 


Rg 
R10 IFAB address 
R11 Impure Area address 


on XABs are present). 


pole l ole lol ololola} 


Implicit Inputs: 


User ALLXABs 
User 


Q_SYs 
NWASV-FTM_RETRV 
NWASV-F TM~STORE 


Output Parameters: 


RO Status code (RMS) 
Ri-R7 Destroyed 
AP Destroyed 


Implicit Outputs: 

User ALLXABs 
Completion Codes: 

Standard RMS completion codes 
Side Effects: 

None 


NTSEXTEND: : 


: Entry point 
STSTPT NTEXTEND 
MOVL 


COOOCOCOOOCOSOOSOSOOOOOOOOSOSOOOSOOSOSOSOOOSCOOOOOOOOOOOOOOOOOOOOOOOOOO 
| OOOO SOoOoCOCOoOooooooooooooooocoo 


DNOWNM NO VS AOOCOCOCOCOCOCOCOCCOSOOCOCOCOSOSOOOOOOOOOOCOOOCOOOCOOOOO: 
autiadtutiaadadatadtadtadtabadat dabei data iad iadbutimdabablabababtabababababababaimbababdatatababababababad 


57 3C A9 00 00 IFBSL_NWA_PTR(R9) ,R7 ; Get address of NWA (and DAP) 
04 €1 00 BBC #DAPSO_EXTEND,- ; Branch if remote FAL does not support 
0A_28 A7 0 DAP$Q_SYSCAP(R7),ERRSUP ; extend file allocation function 
67 1A €0 00 BBS #NWASU_FTM_RETRV,(R7),- ; Branch if file transfer mode retrieval 
09 0 ERRFTM 3 _in progress 
67 18 €0 00 BBS #NWASV_FTM_STORE,(R7),- ; Branch if file transfer mode storage 
05 0 ERRF TM ; _in progress 
09 11 00 BRB BUILD_MASK ; Proceed 
FFE4* 31 00 ERRSUP: BRW NTSSUP_CTLFUNC ; Assemble error codes in RO and STV 


} 
NETWORK EXTEND 16-SEP-1984 00:00:31 VAX/VMS Macro v04-00 Page NTO 
NTSEXTEND - etsy 16 38:2) LRMS  SRCINTOEXTEND MAR: 1 . 3) | | VO4 
1c 3=—:153 3; _and exit | 
if 154 ERRFTM: RMSERR FIM ; Declare file transfer mode error 
05 155 RSB ; Exit with RMS code in RO 
0 139 + 
0 1358 ; Build ei sploy field request mask which will be used in the Control message 
2] 159 ; to request that optional DAP messages be returned by FAL. | 
6° 199 ; For SEXTEND these are only the ALL messages. 
jo 
00 196 
00 163 BUILD_MASK: ; Build NWASW_DISPLAY 
56 bs 38 164 CLRL R6 : Indicate this is not a close operation | 
FFD9" 30 165 BSBW NTS$SCAN_XABCHN ; Scan user XAB chain and check FAL's 
0027 166 ; capabilities; request mask put in R2 
03 50 8 0027 167 BLBS RO,10$ ; Branch on success 
__OODA 1 Q02A 168 BRW AfL ; Branch (failure to complete scan) 
52  FEFB 8F AA OQ02D 169 10$: BICW2 #<*C<DAPSM_DSP_ALL>>,R2 ; Ignore all but ALLXABs in chain 
0000 c7 52 80 00 $ 170 MOVW R2,NWASW_DISPLAY(R7) ; Save request mask 
06 12 003 171 BNEQ SEND_CTL_BEGIN ; Continue (ALLXAB bit set) 
0039 Hi SSETBIT #DAPSV_DSP_ALL,- ; If no ALLXAB present, then set the 
03? It ; NWASW_BISPCAY(R7) ; bit manually 
OO3F 175 ; Build and send DAP Control (begin) message to partner. 
003F 176 i- 
OO3F 17 
OO3F 178 SEND_CTL_BEGIN: ; (required message sequence) 
50 04 p00 OO3F 179 MOVL #DAPSK_CTL_MSG,RO ; Get message type value 
FFBB' 30 OOse 180 BSBW =©NTS$BUICD HEAD ; Construct message header 
85 0B 90 004 181 MOVB #DAPSK_EXTEND_B,(R5)+  ; Store CTLFUNC fiela | 
FFBS5' 30 0048 135 BSBW NTSBUICD TAIL ; Finish building message | 
FFB2° 30 0048 18 BSBW NTSTRANSAIT ; Send Control message to FAL | 
03 50 gS O04E 184 BLBS RO,SEND_ALL ; Branch on success 
0083 931 0051 185 BRW FALL : Branch (failure) 
0054 186 
0054 187 ;+ | 7 
Ooee 133 ; Build and send DAP Allocation message(s) to partner. 
st 10 ; Note: NTSSCAN_XABCHN determined that Allocation XABs were chained together. 
0054 135 
0054 193 SEND_ALL: : (one or more messages required) 
56 0100 C7 00 0054 194 MOVL NWASL_ALLXABADR(R7),R6 ; Get address of first user ALLXAB 
21. 13 0059 195 BEQL SE ; Branch if no ALLXABs present 
FFA2* 38 Bpee 136 10$: BSBW WASSTANALLKAS ; Scan the XAB 
03 5 5E 19 BLBS RO,208 ; Branch on success 
00A3 1 0061 198 BRW FAIL : Branch (failure) 
FF99*" 30 0064 199 20S: BSBW NTSENCODE ALL ; Build message 
FF9é* 30 0067 200 BSBW = NTSTRANSMIT ; Send Allocation message to FAL 
03 39 8 ben 01 BLBS RO, 30$ ; Branch on success 
009 1 9p 8 BRW FAIL : Branch (failure) 
011C C7 7 0070 30$: DECB NWASB_ALLXABCNT(R7) ; Any more Allocation XABs to process? 
3E 1B 0074 4 BLEQU SEND CTL_END ; Branch if not ; | 
56 04 A6 D0 0076 205 MOV XABSC_NXT(R6) ,R6 ; Get address on next XAB in chain | 
DF 11 ait 88 BRB 10$ ; Continue with next XAB | 
3¢ 
Bee 08 ; No ALLXAB is present. Construct a DAP allocation attributes msg based on 
07¢ 09 ; FAB information. 
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iba NTSEXTEND - tae 1 9:98:47 LRMS SRCINTOEXTEND.MAR; 1 . (&) v04 
ore 10 ;- 
7¢ 11 
07C i SEND_ALL2: 
50 98 8 07C 1 MOVL #DAPSK_ALL_MSG,RO ; Get msg type value 
FF7E* O7F 14 BSBW NTS$BUICD_HEAD ; Construct message header 
51 24 9A 88 ¢ 15 MOVZBL #<DAPSM_AOP!- ; Get allocation msg value 
085 316 DAPSM-ALG2 !- ; 
FF78" 30 0088 18 BSBW NTS$CVT_BN4_EXT ; Store ALLMENU as an extensible 
P) e 
51 04 AB DO $088 0 MOVL FABSL_FOP(R8),R1 ; Get FAB FOP field 
5 D4 ppee 1 CLRL R ; Clear RMS AOP bits 
OO8E ¢ SMAPBIT FABSV_CTG,DAPSV_CTG2 ; Map CTG bit 
0096 SMAPBIT FABSV_CBT,DAPS$V_CBT2 ; Map CBT bit 
ae 4 0 OO09E 4 MOVL R2,R1 ; Move data to correct register 
FF5C" 30 OOAI 5 BSBW = NTS$CVT_BN4_EXT ; Store AOP as an extensible field | 
51 10 a 0 QOA4 6 MOVL FABSL_ALQ(R8) ,R1 ; Get FAB's ALQ value 
FF55* 30 OOA8 e7 BSBW NTSCVT_BN4_IMG ; Store ALQ as an image field 
FF52* 30 OOAB 28 BSBW NT$BUICD TAIL ; Finish building message 
FF4F* 30 OQOAE 4 BSBW NTSTRANSAIT : Send Allocation msg to FAL 
53 50 €9 0081 $ 0 BLBC RO,FAIL ; Branch on failure 
00B4 231 | 
00B4 $36 se | 
00B4 233 ; Build and send DAP Control (end) message to partner. 
00B4 234 ;- 
0084 235 
00B4 236 SEND_CTL_END: : (required message sequence) 
00B4 237 SSETBIT #NWASV_LAST MSG, (R7) ; Declare this last message to block 
50 04 DO 00B8 238 MOVL #DAPSK~CTL , ; Get message type value 
FF42" 30 O0BB 239 BSBW NTS$BUIC ; Construct message header 
85 OF 90 OOBE 549 MOVB #DAPSK_EXTEND_E,(R5)+ 3; Store CTLFUNC field 
85 20 90 00C1 41 MOVB #DAPSM_DISPLAY2, (R5)+ 3; Store CTLMENU field 
51 0000 C7 3C¢ 00C4 he MOVZWL NWASW BISPLAY(R7),R1 ; Get request mask | 
FF34° 30 O00C9 24 SBW TSCVT_BN4_EXT : Store DISPLAY as an extensible field 
FF31° 30 OOCC 244 BSBW NT$BUICD TAIL 3 Finish building message | 
FF2E* 30 OOCF 245 BSBW NTSTRANSA : Send Control message to FAL 
32 50 €9 QO0D2 246 BLBC RO,FAIL : Branch on failure 
0100 ¢7 DS 00D5 247 TSTL NWASL_ALLXABADR(R7) : Any ALLXABs present? . 
OE 13 O00D9 248 BEQL RECV_EXT_ATT2 ; Branch if not (FAB is being used) 
FF22" 30 O0DB 249 BSBW NTSSCAN_XABCHN ; Scan user XAB chain to reset 
OODE 250 3 _ALLXABCNT 
26 50 €9 OODE $2) BLBC RO, FAIL ; Branch on error | 
OOF] 388 + | 
Ope 3 ; Receive DAP Allocation messages from partner and update the user ALLXABs. 
00E1 56 ; 
00E1 57 RECV_EXT_ATT: ; Coptional--must be requested) 
FFIC’ 30 O0E1 58 BSBW 8 =NTSRECV_EXT_ATT ; Process Extended Attributes messages 
20 50 =E9 Q0E4 59 BLBC RO,FAIL ; Branch on failure 
10 +11 OE? 60 ; BRB RECV_ACK : Go receive ACK msg 
44 6¢ ; Receive DAP Allocation message from partner and update user FAB. 
ORES 64 
OE9 265 RECV_EXT_ATT2: 
00E9 266 SSETBIT #DAPSK_ALL_MSG,DAPSL_MSG_MASK(R7) 
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tibet NTSEXTEND - ~ oer 1 bbe 933982 : ERS. SRCINTOEXTEND.MAR; 1 . (3) vO4 
EE 67 i Expect response of Allocation message 
Eror” 30 EE 68 BSBW NTSRECEIVE ; Get reply fro hy 
13 9 E9 F $2 BLBC RO,FA : Branch on faitur 
4C A? D0 = O0F4 0 MOVL  DAPS$L_ALQ2(R7),- ; Move ALQ value to user FAB 
10 A& ore 4 - F ABSL_ALQ(R8) : 
$Or9 5g ; Receive DAP Acknowledge message from partner. 
OOF9 74 ;- 
OOF9 75 
OOF9 6 RECV_ACK equired message) 
OOF9 7 $SETBIT #DAPSK_ACK_MSG,DAPSL LNSGMASKR 
Bere 78 ; Expect response of Acknowledge message 
FEFF* 30 OOFE 79 BSBW NTSRECEIVE ; Get reply from FAL 
03 50 €9 0101 80 BLBC RO,FAIL 3; Branch on failure, 
0104 $B SUC: RMSSUC ; Return succe 
05 0107 Bg FAIL: RSB 3; Exit with RMS code in RO | 
0108 28 
0108 284 - END ; End of module 


DA AOP 
DAPSM_BITCNT 
DAPSM_BLKCNT 
DAPSM_DISPLAY2 


NWASB_ 
NWASB_OSTYPE 
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$$.PSECT EP = 00000000 DAPSM_DSP_3NAM = 00000200 
SSRMSTEST = 8380010 DAPS$M_DSP_ALL = Bop ob2 
SEAMS. PRUGCHK = 000 O09 DAPSH_GET = 00000002 
SSRMS_TBUGCHK = 0000000 DAP$M_GO_NOGO = 00000010 
SSRMS_UMO = Hoppe SS DAPSM_MSE = 00000010 
BUILD_MASK 000000 § R 01 DAPSM_SEGMENT = 00000040 
DAPS$B_ACCFUNC 0000004 DAPSM_TMP1$ = 000000F0 
DAP$B_ACCOPT 00000041 DAPSM_TMP2$ = QOO0FE0OO 
DAP$B_AID 00000050 DAP$Q_DCODE_FLG 00000000 
DAP$B_ALN 00000044 DAPS$SQ_FILESPEC 00000044 
DAP$B_AOP 00000045 DAP$Q_KEY 00000048 
DAP$B_BITCNT 00000035 DAP$Q"MSG_BUF 1 90000008 
DAP$B_BKZ 00000051 $Q_MSG_BUF2 0000010 
DAP$B_BLKCNT 00000056 DAP$Q_PASSWORD 00000050 
DAPSB_CTLFUNC 00000040 DAPS$Q_SYSCAP SOO OSS 
DAP$B_DCODE_F ID 00000019 DAP$Q"SYSPEC 00000038 
DAPSB_DCODE_MAC 00000018 DAPS$V_CBT = Boo oor 
DAPSB_DCODE_MSG QOO0001A DAP$V_CTG = 00000001 
DAPSB_DE 00000047 AP$V_DSP_ALL = 00000002 
DAP$B_ECONUM 00000045 DAP$V_EXTEND = 00000004 
DAPS$B_FAC ie 94 APS$W_ALLMENU 00000040 
DAP$B_FILESYS 0000004 DAPS$W_BUF 00000040 
DAPS$B_FLAGS 00000031 DAPS$W_CTLMENU 00000044 
DAPSB_KRF 00000047 DAP$W_DdEQ2 00000052 
DAPS$B_LEN256 00000034 DAPSW_DISPLAY1 0000004C 
DAPS$B_LENGTH 00000033 DAPSW_DISPLAY2 00000054 
DAPSB_OSTYPE 00000042 DAP$W_PARTNER 00000006 
— “a 00000046 pare. VERSION 00000004 
DAPSB_SHR 00000043 DAP$W_VOL 00000042 
DAP$B_ =STREAMID 00000032 ERRETA 0000001C R 01 
DAPSB_TYPE 00000030 ERRSUP 00000019 R 01 
DAPSB_USR 00000046 FABSL_ALQ = 00000010 
DAPSB_USRVER 00000048 FABSL_FOP = 00000004 
DAPSB_VER 00000044 FABSV_CB = 00000015 
DAPS$B_X_FIELD 00000024 FABSV_CTG = 00000014 
DAP$C_BLN 000000C0 FAIL 00000107 R 01 
DAPSK_ACK_MSG = 00000006 IFBSL_NWA_PTR = 0000003C 
DAPSK_ALL_MSG = 00000008 NTSBUTLD_READ eeeeeeee = X 01 
DAP$K_BL 000000C0 NT$BUILD” TAIL aeeeeeee =X 01 
DAPSK_CTL_MSG = 00000004 NTSCVT_BR4_EXT eeneeeee =X 01 
DAPSK_EXTEND_B = 00000008 NTSCVT_BN4” IMG eexeeeee =X 01 
DAPSK_EXTEND-E = 000 F NTSENCODE_ALL aeeeeeee =X (1 
DAPSK_SE = 0000 NTSEXTEN 00000000 RG 01 
DA ~ALQ2 8 NTSRECE eeeeeeee =X 01 
DAF NTSRECV_EXT_ATT aeeeeeee X (1 
DAPSL_ CRC siSLT. 0 NTSSCAN_ALLRAB eeeeenee = X 01 

DAPS$L_DCOBE_ 0 NTSSCAN_XABCHN aeeeeeee = X 01 
DAPSL “LO 0 NT$SUP_CTLFUNC aeneeeee =X = 01 
DAPSLASG_MASK 0 NTSTRANSMIT eeeeeere§ YX 01 
DAP$L_ROP 0 NWASB -ALLXABCNT 0000011¢ 
DAPSL_SSPWA 0 NWASB_DAP 

T 0 NUASBuFILEStS 
NWASB_KEYXABC 
0 


000000C9 
0000005 
Bont ar 
000016F 
00000168 
000000C6 
000000C4 
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Psect synopsis S RMS .SRCINTOEXTEND.MAR; 1 (3) 
pooeoeoocenn wocens 
! Psect synopsis ! 
$oowooeooccccn sont 
PSECT name Allocation PSECT No. Attributes 
es , 00000000 0.) OO ¢ OQ.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
NF SNE TWORK 00000108 ( 264.) O01 ¢ 1. PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
SABSS 00000800 ( 2048.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 


$owmcewcewccccceccccccccns 


Phase Page faults CPU Time Elapsed Time 
Initialization 3 00:00:00.07 00:00:00.32 
Command processing 12 00:00:00.60 et a EE 
Pass 310 00:00:11.58 00:00:30.68 
Symbol table sort 0 00:00:01.45 00:00:02.47 
Pass 2 65 00:00:01.95 BD BO ge 
Symbol table output 23 00:00:00.16 00:00:00.31 
Psect synopsis output 2 00:00:00.03 00:00:00.10 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 559 00:00:15.86 00:00:41.77 


The working set Limit was 1350 pages. > 

60705 bytes (119 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 1119 non-local and 10 local symbols. 
284 source lines were read in Pass 1, producing 14 object records in Pass 2. 

27 pages of virtual memory were used to define 26 macros. 


+ + 
! Macro Library statistics ! 
+ + 


Macro Library name Macros defined 
-$255$DUA28: CRMS .OBJJRMS.MLB; 1 18 
$255$DUA28: CSYSLIBIJSTARLET.MLB;2 4 
TOTALS (all Libraries) 22 


1395 GETS were required to define 22 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:NTOEXTEND/OBJ=OBJ$:NTOEXTEND MSRC$:NTOEXTEND/UPDATE=(ENHS$:N7OEXTEND) +LIB$:RMS/LIB 


0316 H-BT13A-SE DIGITAL EQUIPMENT CORPOR 
VAX/VMS V4.0 _CONF AND PROPRIE 


